home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / gui / guienv376_up1.lha / GUIEnvironment / OberonA / Source / 3rdParty / GEClass.mod next >
Encoding:
Text File  |  1995-02-05  |  4.4 KB  |  164 lines
  1. (****************************************************************************
  2.  
  3. $RCSfile: GEClass.mod $
  4.  
  5. $Revision: 1.3 $
  6.     $Date: 1994/12/16 16:39:53 $
  7.  
  8.     Oberon-2 interface module for the GUIEnvironment Class Library
  9.  
  10.     Oberon-A Oberon-2 Compiler V5.18 (Release 1.5)
  11.  
  12.   Copyright © 1994, Carsten Ziegeler
  13.                     Augustin-Wibbelt-Str.7, 33106 Paderborn, Germany
  14.  
  15. ****************************************************************************)
  16.  
  17. <* STANDARD- *> <* INITIALISE- *> <* MAIN- *>
  18. <*$ CaseChk-  IndexChk- LongVars+ NilChk-  *>
  19. <*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
  20.  
  21. MODULE [2] GEClass;
  22.  
  23. IMPORT K := Kernel,
  24.        E := Exec,
  25.        U := Utility;
  26.  
  27. CONST
  28.  
  29.   Name* = "geclass.library";  (* Library name *)
  30.   Version* = 37;              (* min version / Revision 5 ! *)
  31.  
  32. (* ======================================================================= *)
  33. (*                       The Get File Image Class                          *)
  34. (* ======================================================================= *)
  35.  
  36. CONST getFileIClass *= "getfileiclass";
  37.  
  38. (* Default dimension: *)
  39.  
  40.   gfiWidth  *= 20;
  41.   gfiHeight *= 14;
  42.  
  43.  
  44. (* ======================================================================= *)
  45. (*                       The TextField Gadget Class                        *)
  46. (* ======================================================================= *)
  47.  
  48. (*
  49.  * TextFieldGadget V2.0
  50.  *
  51.  * Copyright © 1994 Mark Thomas
  52.  *
  53.  * (Please update this definitions for further versions of TextFieldGadget)
  54.  *)
  55.  
  56. CONST textfieldgClass *= "textfieldgclass";
  57.  
  58. (* ----------------------- Attributes ------------------------------------ *)
  59.  
  60. CONST
  61.   dummy            = U.user + 04000000H;
  62.  
  63.   text            *= dummy + 1;    (* V1 *)
  64.   insertText      *= dummy + 2;
  65.   textFont        *= dummy + 3;
  66.   delimiters      *= dummy + 4;
  67.   top             *= dummy + 5;
  68.   blockCursor     *= dummy + 6;
  69.   size            *= dummy + 7;
  70.   visible         *= dummy + 8;
  71.   lines           *= dummy + 9;
  72.   noGhost         *= dummy + 10;
  73.   maxSize         *= dummy + 11;
  74.   border          *= dummy + 12;
  75.   textAttr        *= dummy + 13;
  76.   fontStyle       *= dummy + 14;
  77.   up              *= dummy + 15;
  78.   down            *= dummy + 16;
  79.   alignment       *= dummy + 17;
  80.   vCenter         *= dummy + 18;
  81.   ruledPaper      *= dummy + 19;
  82.   paperPen        *= dummy + 20;
  83.   inkPen          *= dummy + 21;
  84.   linePen         *= dummy + 22;
  85.   userAlign       *= dummy + 23;
  86.   spacing         *= dummy + 24;
  87.   clipStream      *= dummy + 25;
  88.   clipStream2     *= dummy + 26;
  89.   undoStream      *= dummy + 26;
  90.   blinkRate       *= dummy + 27;
  91.   inverted        *= dummy + 28;
  92.   partial         *= dummy + 29;
  93.   cursorPos       *= dummy + 30;
  94.  
  95.   readOnly        *= dummy + 31;     (* V2 *)
  96.   modified        *= dummy + 32;
  97.   acceptChars     *= dummy + 33;
  98.   rejectChars     *= dummy + 34;
  99.   passCommand     *= dummy + 35;
  100.   lineLength      *= dummy + 36;
  101.   maxSizeBeep     *= dummy + 37;
  102.   deleteText      *= dummy + 38;
  103.   selectSize      *= dummy + 39;
  104.   copy            *= dummy + 40;
  105.   copyAll         *= dummy + 41;
  106.   cut             *= dummy + 42;
  107.   paste           *= dummy + 43;
  108.   erase           *= dummy + 44;
  109.   undo            *= dummy + 45;
  110.  
  111. (* ----------------------- Border ----------------------------------------- *)
  112.  
  113.   borderNone          *= 0;
  114.   borderBevel         *= 1;
  115.   borderDoubleBevel   *= 2;
  116.  
  117. (* ----------------------- Alignment -------------------------------------- *)
  118.  
  119.   alignLeft           *= 0;
  120.   alignCenter         *= 1;
  121.   alignRight          *= 2;
  122.  
  123.  
  124.  
  125. (* --- Library Base variable -------------------------------------------- *)
  126.  
  127. TYPE GEClassBase * = E.Library;
  128.      GEClassBasePtr * = POINTER TO GEClassBase;
  129.  
  130. VAR
  131.  
  132.   base *  : GEClassBasePtr;
  133.  
  134.  
  135. (* --- Library Functions ------------------------------------------------ *)
  136.  
  137.   PROCEDURE GetObjectA * [base,-30]
  138.           (class[8]   : E.APTR;
  139.            classID[9] : ARRAY OF CHAR;
  140.            tagList[10]: ARRAY OF U.TagItem) : E.APTR;
  141.  
  142.   PROCEDURE GetObject * [base,-30]
  143.           (class[8]   : E.APTR;
  144.            classID[9] : ARRAY OF CHAR;
  145.            tagList[10].. : U.Tag) : E.APTR;
  146.  
  147.   PROCEDURE FreeObject * [base,-36]
  148.           (object[8] : E.APTR);
  149.  
  150.  
  151. <*$ LongVars- *>
  152.  
  153. (*------------------------------------*)
  154. PROCEDURE* [0] CloseLib (VAR rc : LONGINT);
  155. BEGIN (* CloseLib *)
  156.   IF base # NIL THEN E.CloseLibrary (base) END
  157. END CloseLib;
  158.  
  159.  
  160. BEGIN (* GEClass *)
  161.   base := E.OpenLibrary(Name, Version);
  162.   IF base # NIL THEN K.SetCleanup(CloseLib) END;
  163. END GEClass.
  164.